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. gre ee rt oBe 94:58:53 PARAS eaese NOt ee mans1 2m 


TITLE WiMah i yent - Nearest Integer of H 
-IDENT /1-001/ 3; File: MTHIIHNNT.MAR 


SEERA EAA AAE EAE AAA AAAAAAAAAAAAAAAAAAARAARAAAAARAEAAARAAAEEAAEEARAEAATEAEREEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
w 
® 
® 
€ 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION GF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. " 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 
® 
® 
® 
® 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PARRA AAAAALAALALAAALALLASE SEES ARSE SESE RRR RSE SE SESE RR RRR RRS SERRE RAE BS SO 


of AeshiTs MATH LIBRARY 
"ABSTRACT: 
Return nearest integer of a REAL*16 to a INTEGER*2. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 21-Aug-1979 


MODIFIED BY: 
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| -SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of MTHSIIHNNT 
4} 12001 = Original. SBL 21-Aug-79 


L 15 ten c m1 
~b "B-SEp=-1984 11:26:02 EMTARTL.SRCIMTMT TANNT.MaR;1 29 (3) ' 


-SBTTL DECLARATIONS 


dd 2 aad 
1-00 


; INCLUDE FILES: 
: EXTERNAL SYMBOLS: 
: MACROS: 


; PSECT beta gat ioee 


CLA 
SECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 


OWN STORAGE: 


ONIN NINIOOAOAOAOOOTIVMN 
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MTHS] IHNNT - Nearest Integer of H 16-SEP-1984 01:42:35 VAX/VMS Macro V04-00 Page 
Oot MTHSIIHNNT = return nearest integer as | o-SEb=19 4 1:38:03 EATHRTL. SRCIMTHI THNNT .MAR: 1 2 
-SBTTL MTHSIIHNNT = return nearest integer as INTEGER*2 

had 

; FUNCTIONAL DESCRIPTION: 

: Returns the nearest integer (rounded away from zero) of a 

; REAL*16 to a INTEGER*2 as a function value. 

: CALLING SEQUENCE: 

; result.ww.v = MTHSIIHNNT (arg.rh.r) 

: INPUT PARAMETERS: 

00000004 arg = 4 : H floating argument 


; IMPLICIT INPUTS: 
NONE 

; OUTPUT PARAMETERS: 
NONE 

; IMPLICIT OUTPUTS: 
NONE 


; FUNCTION VALUE: ; 
The argument rounded to the nearest word integer away from 
zero. 


SIDE EFFECTS: ' 
Reserved operand, Integer overflow exceptions. 


RIMINPINID 2 2 OF MQOOOOOOOOCOOOOOOOOOO 
FWD OC OODNAUE WIN $$ 9 OD NAUE WIN $$ 9 OD NAMES WIN O OONOAOULS UN 


cme ed nan et eb a eb a 8 ss a a ts a a dt a 


4000 eENTRY MTHSIIHNNT, “M<IV> 
50 04 BC 6BF D 0 CVTRHL @arg(AP), RO 8 = rounded argument 
50 0 F7 0 CVTLW = RO, RO ; RO = word resul 
04 0 RET 
0B 
008 
0008 - END 
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Symbol table HI 


202 CMTHRT LSREIMT IHNNT MAR; 1 (4) 
ARG = F088 OR. 
MTH$1 THNNT 0000000 RG 01 

foes oememcroen manoea } 


! Psect synopsis ! 


toes omoronrooama wma $ 


PSECT name Allocation PSECT No. Attributes 
- ABS. 44444 ( 0.) 69 ( Q.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0000008 ¢«¢ 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


¢ ewer mre eam enreceece aaa mamad 


! Performance indicators ! 


$oeaaceanen esas seace eeeeeen} 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00: 0:00.11 00: + 0.59 
|e processing Ne 8 : 80088 88: He B44 
Symbol table sort 39 3:0 9:8 09:00:00:60 
Ss : : ° : $ e 
Symbol table output 1 00: 8:00; 8 00:00:00.02 
Psect synopsis output 2 80 60:00'5 00:00:00.02 
Cross-reference output 0 00:00: 92 Bo BN Og +00 
Assembler run totals 249 00:00:01. 0:00:09.67 


The working set Limit was 900 pages. 

1199 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
124 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


peer eoew nce ee cer encom soe ece + 
H Macro Library statistics ; 

Macro Library name Macros defined 

_$255$DUA28:CSYSLIBISTARLET.MLB;2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LISS:MTHIITHNNT/OBJ=OBJ$:MTHIIHNNT MSRC$:MTHI IHNNT/UPDATE=(ENHS:MTHI IHNNT) 
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